open(BUFF,"selected_samples_genotypes_genes");
while(<BUFF>)
{
	chomp($_);
	$hash{$_} = 1;
}
open(BUFF,"fwdStrandResults_BRCA_removeddup_normal.tfam");
while(<BUFF>)
{
        chomp($_);
	@a = split("-",$_);
	if($hash{"$a[0]-$a[1]-$a[2]"} == 1)
	{
		$hash{"$a[0]-$a[1]-$a[2]"} = 0;
		print "$_\n";
	}
}
